home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls085.solintel.Z / tls085.solintel / lib / vtcl / tests / autolock.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  381 b   |  29 lines
  1. # CVS $Id: autolock.tcl,v 1.1 1995/02/03 17:15:01 zibi Exp $
  2. #
  3. # Test of the VtLock command
  4. #
  5.  
  6. source tools.tcl 
  7.  
  8. proc lockCB {cbs} {
  9.     sleep 5
  10.     VtUnLock
  11. }
  12.  
  13. set ap [VtOpen Lock]
  14.  
  15.  
  16. set dlog [VtFormDialog $ap.form ]
  17.  
  18.  
  19. set rc [VtRowColumn $dlog.rc]
  20.  
  21. VtPushButton $rc.Lock  -callback lockCB -autoLock lockCB
  22.  
  23. VtPushButton $rc.Exit  -callback QuitCB
  24.  
  25. VtShow $dlog
  26.  
  27. VtMainLoop
  28.     
  29.